home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 356 / test.mod < prev   
Text File  |  1989-01-10  |  487b  |  28 lines
  1. MODULE tst;
  2.  
  3. (*
  4.  *  A simple test program that prints some '*' on the screen.
  5.  *)
  6.  
  7. FROM Terminal IMPORT WriteString,WriteChar,WriteLn,ReadChar;
  8.  
  9. VAR
  10.   ch:CHAR;
  11.   i,j:CARDINAL;
  12. BEGIN
  13.   FOR i:=1 TO 12 DO
  14.     FOR j:=0 TO i DO
  15.       WriteString(" * *");
  16.     END;
  17.     WriteLn;
  18.   END;
  19.   FOR i:=12 TO 1 BY -1 DO
  20.     FOR j:=i TO 0 BY -1 DO
  21.       WriteString(" * *")
  22.     END;
  23.     WriteLn;
  24.   END;
  25.   WriteString(" Press any key to continue...");
  26.   ReadChar(ch);
  27. END tst.
  28.